home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / demo / mag / trash3_2.lha / fuentes / FuentesFXC2P.lha / FXC2P.PonGfx < prev    next >
Text File  |  1980-01-03  |  1KB  |  52 lines
  1.  
  2. * FX_PonGfx
  3. * Rutina para poner gráficos en PVC (320x256)
  4. * Enteramente programada por Xele/Odrusba
  5. ;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|
  6. ; d1.w , d2.w  =  X1 , Y1                                |
  7. ; d3.w , d4.w  =  AnchoGfx , AltoGfx                     | 
  8. ; a5.l           =  *Buffer Chunky                         |
  9. ; a0.l           =  *Buffer Gfx.Chunky                     |
  10. ;                                                        |
  11. ;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  12.  
  13. FX_PonGfx    ;SUBRUTINA
  14.  
  15.     movem.l    d5/a0/a4-a6,-(sp)
  16.  
  17. ;Calcula Offset inicial
  18.  
  19.     moveq    #0,d5
  20.     move.w    d2,d5
  21.     lsl.w    #8,d2
  22.     lsl.w    #6,d5
  23.     add.l    d5,d2            ;D2 = (320 * Y)
  24.     add.l    d2,a5
  25.     lsl.l    #1,d1
  26.     add.l    d1,a6
  27.     move.l    a6,a4
  28.  
  29.     moveq    #0,d1
  30.     subq    #1,d3
  31.     subq    #1,d4
  32. .BucleY
  33.     move.l    d3,d5
  34. .BucleX
  35.     move.w    (a6)+,d1
  36.     IFEQ    FX_TRANSP
  37.         move.b    (a0)+,(a5,d1.w)
  38.     ELSEIF
  39.         move.b    (a0)+,d0
  40.         tst.b    d0
  41.         beq    .Ok
  42.         move.b    d0,(a5,d1.w)
  43.     ENDC
  44. .Ok        dbra    d5,.BucleX
  45.  
  46.     move.l    a4,a6
  47.     lea    320(a5),a5
  48.     dbra    d4,.BucleY
  49.  
  50.     movem.l    (sp)+,d5/a0/a4-a6
  51.     rts
  52.